1 REM ==================================
2 REM    COMMODARES PROBLEM #48-1 :
3 REM     COIN CHALLENGE
4 REM    SOLUTION BY
5 REM     DON DONATI
6 REM ==================================
90 PRINT"[147]"
100 C$(1)="PENNIES":V%(1)=1:C$(2)="NICKELS":V%(2)=5:C$(3)="DIMES":V%(3)=10
110 C$(4)="QUARTERS":V%(4)=25:C$(5)="HALF-DOLLARS":V%(5)=50:TT%=0:PRINT"[147]"
120 FOR I=1 TO 5
125 PRINTTAB(13)"COIN CHALLENGE"
130 PRINT C$(I);:INPUT N%:IF N%<0 THEN 130
140 TT%=TT%+N%*V%(I):NEXT I
150 PRINT:PRINT"TOTAL: $";TT%/100
160 ON SGN(TT%-100)+2 GOTO 170, 180, 190
170 PRINT"LESS THAN A DOLLAR":PRINT "ADD:":GOTO 200
180 PRINT"EQUAL TO A DOLLAR": END
190 PRINT"GREATER THAN A DOLLAR":PRINT"REMOVE:"
200 DF%=ABS(TT%-100)
210 FOR I=5 TO 1 STEP -1
220 C%=DF%/V%(I):IF C%=0 THEN 240
230 DF%=DF%-C%*V%(I): PRINT C%;C$(I)
240 NEXT I : END